Games of Daze/Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso/x2ftp/msdos/math/nrpas13/expdev.pas

Pascal/Delphi Source File | 1991-04-29 | 86 b | 5 lines

FUNCTION expdev(VAR idum: integer): real;
BEGIN
   expdev := -ln(ran3(idum))
END;